
  10 :RETURN ;BC=RND (256);FC=BC+4+RND (32)×8
  15 H=0;NT=0
  20 FOR P=1TO 10;CLEAR 
  25 &(9)=91;F=BC+4+RND (32)×8;&(0)=BC;&(1)=BC;&(2)=F;&(3)=F
  30 FOR Z=1TO 4;@(Z)=-200;NEXT Z
  40 T=RND (80)-10
  50 @(RND (4))=T
  60 FOR Z=1TO 4;IF @(Z)>-200NEXT Z;GOTO 90
  70 @(Z)=RND (80)-10;IF @(Z)=TGOTO 70
  80 NEXT Z
  90 LINE 53,-40,0
 100 BOX 50,0,1,80,1;BOX 55,0,1,80,1
 110 LINE 53,T-30,1;LINE 52,-40,0;LINE 52,T-30,1
 120 X=-4
 130 FOR Z=-40TO 40STEP 5
 140 BOX 53-X,Z,3,1,1;CY=Z+1;IF X<0CX=63
 150 IF X>0CX=38
 160 PRINT #1,Z+30,;X=X×(-1);NEXT Z;CY=38
 165 PRINT 
 170 PRINT "WHAT IS THE
 180 PRINT "TEMPERATURE?
 190 PRINT 
 200 PRINT "(A)",#4,@(1)
 210 PRINT "(B)",#4,@(2)
 220 PRINT "(C)",#4,@(3)
 230 PRINT "(D)",#4,@(4)
 235 PRINT "(E) NONE OF THE
 236 PRINT "    ABOVE
 240 CY=-36;A=KN(1)÷54+67
 250 CX=-78;TV=A;IF TR(1)GOTO 270
 260 GOTO 240
 270 IF @(A-64)=T H=H+1;PRINT ;PRINT "VERY GOOD!";&(21)=15;FOR Z=1TO 50;&(19)=Z;NEXT Z;&(19)=0;NEXT P;GOTO 315
 280 FOR Z=1TO 4;IF @(Z)=T B=Z
 290 NEXT Z
 295 NT=3;FOR Z=1TO 20;MU=135;NEXT Z;NT=0
 300 PRINT ;PRINT "TEMPERATURE=",#1,T,",(",;TV=B+64;PRINT ")",
 305 FOR Z=1TO 4000;NEXT Z
 310 NEXT P
 315 CLEAR ;PRINT ;PRINT 
 320 PRINT "THAT'S IT!
 330 PRINT "YOU GOT",#3,H," CORRECT!
 340 PRINT "THAT'S",#5,H×10,"%
 350 IF TR(1)RUN 
 360 GOTO 350
>RUN 
